Tömb feltöltése n darab bekért számmal, és ezek közül a legnagyobb elem kiválasztása (Maximum.pas)
program Maximum;
uses crt;
var i,n,max:integer;
a:array [1..10] of integer;
BEGIN
write ('n:=');
readln(n);
Bekérjük a tömbelemek számát, amely nem lehet nagyobb 10-nél, mivel az a tömb 10 eleműnek lett deklarálva.
i:=1;
while (i<=n) do begin
A ciklus segítségével feltöltjük a tömböt.
write ('a[',i,']:=');
readln (a[i]);
Beolvassuk az a tömb i-edik elemét.
i:=i+1;
end;
max:=a[1];
A fent egész számnak deklarált max változóba beletesszük az a tömb 1. elemének értékét.
i:=2;
while (i<=n) do begin
if(max<a[i]) then begin
max:=a[i];
Amennyiben a max változó értékénél nagyobb értékű tömbelemet találunk, azt beletesszük a max-ba.
end;
i:=i+1;
end;
writeln('A legnagyobb szam= ',max);
END.
